Attribute VB_Name = "ASROutputFileVendorTests"
'WRITTEN BY JALISA GREENE
'LAST MODIFIED BY JALISA GREENE
'LAST MODIFIED DATE: 6/9/2014

Public VendorMarker As Range

Public Sub VendorDiffCont1Svc(rowNum As Integer, loc As Range)
If Worksheets("ASR").Range("AA" & rowNum).Value <> "" Then
'Test Vendor 1'
    'Current Service'
    If Worksheets("ASR").Range("AA" & rowNum) = ActiveCell.Value Then
        ActiveCell.Offset(0, 1).Select
        'Service Concatenation'
        ActiveCell.Value = Worksheets("ASR").Range("BC" & rowNum).Value
        'Total Yds Per Week'
        ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AI" & rowNum).Value
        'Base Service Charge'
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AO" & rowNum).Value
        v1 = True
        
    'Billing Corrections'
    If Worksheets("ASR").Range("UG" & rowNum).Value <> "" Then
        ActiveCell.Offset(0, 5).Select
        ActiveCell.Value = Worksheets("ASR").Range("VG" & rowNum).Value
        ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("UM" & rowNum).Value
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("UN" & rowNum).Value
        c1 = True
    ElseIf Worksheets("ASR").Range("BC" & rowNum).Value <> "" Then
        ActiveCell.Offset(0, 5).Select
        ActiveCell.Value = Worksheets("ASR").Range("BC" & rowNum).Value
        ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AI" & rowNum).Value
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AO" & rowNum).Value
    End If
    
    'Rate Reductions'
    If Worksheets("ASR").Range("AEZ" & rowNum).Value <> "" Then
        ActiveCell.Offset(0, 5).Select
        ActiveCell.Value = Worksheets("ASR").Range("AFZ" & rowNum).Value
        ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AFF" & rowNum).Value
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AFG" & rowNum).Value
        r1 = True
    ElseIf Worksheets("ASR").Range("UG" & rowNum).Value <> "" Then
        ActiveCell.Offset(0, 5).Select
        ActiveCell.Value = Worksheets("ASR").Range("VG" & rowNum).Value
        ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("UM" & rowNum).Value
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("UN" & rowNum).Value
    ElseIf Worksheets("ASR").Range("BC" & rowNum).Value <> "" Then
        ActiveCell.Offset(0, 5).Select
        ActiveCell.Value = Worksheets("ASR").Range("BC" & rowNum).Value
        ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AI" & rowNum).Value
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AO" & rowNum).Value
    End If
    
    'Vendor Switch'
        If Worksheets("ASR").Range("AQT" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("APS" & rowNum).Value
            If ActiveCell.Value <> Range("B" & ActiveCell.Row).Value Then
                ActiveCell.Interior.ColorIndex = 6
            Else: ActiveCell.Interior.ColorIndex = 3
            End If
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AQS" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("APY" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("APZ" & rowNum).Value
            vs1 = True
        ElseIf Worksheets("ASR").Range("AEZ" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("AEZ" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AFZ" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AFF" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("AFG" & rowNum).Value
        ElseIf Worksheets("ASR").Range("UG" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("UG" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("VG" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("UM" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("UN" & rowNum).Value
        ElseIf Worksheets("ASR").Range("AA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("AA" & rowNum).Value
             ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("BC" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AI" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("AO" & rowNum).Value
        End If
        
        'Service Standardization
        If Worksheets("ASR").Range("BAL" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("BBL" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("BAR" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BAS" & rowNum).Value
            s1 = True
        ElseIf Worksheets("ASR").Range("AQT" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("AQS" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("APY" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("APZ" & rowNum).Value
        ElseIf Worksheets("ASR").Range("AEZ" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("AFZ" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AFF" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AFG" & rowNum).Value
        ElseIf Worksheets("ASR").Range("UG" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("VG" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("UM" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("UN" & rowNum).Value
        ElseIf Worksheets("ASR").Range("BC" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("BC" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AI" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AO" & rowNum).Value
        End If
        
        
        'Implemented Spend'
         If Worksheets("ASR").Range("BVI" & rowNum).Value <> "" Then
            Range("AR" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("BVI" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("BWK" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BVP" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("BVR" & rowNum).Value
        End If
        'if rate change in current spend
        If Worksheets("ASR").Range("BWP" & rowNum).Value <> "" Then
            Range("AX" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("BWK" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CND" & rowNum).Value
        End If
        'if rate change in billing corrections
        If Worksheets("ASR").Range("BWR" & rowNum).Value <> "" Then
            Range("AZ" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("BWK" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CVP" & rowNum).Value
        End If
        'if rate change in rate reductions
        If Worksheets("ASR").Range("BWS" & rowNum).Value <> "" Then
            Range("BB" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("BWK" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DEB" & rowNum).Value
        End If
        'if rate change in vendor switch
        If Worksheets("ASR").Range("BWU" & rowNum).Value <> "" Then
            Range("BD" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("BWK" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DMN" & rowNum).Value
        End If
        'if rate change in service standardizations
        If Worksheets("ASR").Range("BWN" & rowNum).Value <> "" Then
            Range("BF" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("BWK" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DVA" & rowNum).Value
        End If
        
        If Worksheets("ASR").Range("BVI" & rowNum).Value <> "" Then Call ImpSavings(1, rowNum)
              
    End If
End If
End Sub

Public Sub VendorDiffCont2Svc(rowNum As Integer, loc As Range)
    If Worksheets("ASR").Range("CA" & rowNum).Value <> "" Then
    'Test Vendor 2'
    loc.Select
    same = True
    'same = true until the code specifies it is false with this if/then statement
    If Worksheets("ASR").Range("AA" & rowNum).Value <> Worksheets("ASR").Range("CA" & rowNum).Value Then
        ActiveCell.Offset(10).Select
        same = False
    End If
    
    ActiveCell.Offset(, 9).Select
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
        'Current Spend'
        ActiveCell.Value = Worksheets("ASR").Range("DC" & rowNum).Value
        ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CI" & rowNum).Value
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CO" & rowNum).Value
        v2 = True
        
        'Billing Corrections'
        If same = True Then
            While ActiveCell.Offset(0, 5).Value <> ""
                ActiveCell.Offset(1).Select
            Wend
        End If
        If Worksheets("ASR").Range("VN" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("WN" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("VT" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("VU" & rowNum).Value
            c2 = True
        ElseIf Worksheets("ASR").Range("CA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("DC" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CI" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CO" & rowNum).Value
        End If
        
         'Rate Reductions'
         If same = True Then
            While ActiveCell.Offset(0, 5).Value <> ""
                ActiveCell.Offset(1).Select
            Wend
        End If
        If Worksheets("ASR").Range("AGG" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("AHG" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AGM" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AGN" & rowNum).Value
            r2 = True
        ElseIf Worksheets("ASR").Range("VN" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("WN" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("VT" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("VU" & rowNum).Value
        ElseIf Worksheets("ASR").Range("CA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("DC" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CI" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CO" & rowNum).Value
        End If
        
        'Vendor Switch'
        If Worksheets("ASR").Range("APS" & rowNum).Value = Worksheets("ASR").Range("AQZ" & rowNum).Value And Worksheets("ASR").Range("APS" & rowNum).Value <> "" Then
            same = True
        ElseIf Worksheets("ASR").Range("AA" & rowNum).Value = Worksheets("ASR").Range("CA" & rowNum).Value And Worksheets("ASR").Range("APS" & rowNum).Value = "" And Worksheets("ASR").Range("AQZ" & rowNum).Value = "" Then
            same = True
        Else:
            same = False
        End If
        
        If same = True Then
            While loc.Offset(0, 21).Value <> ""
                ActiveCell.Offset(1).Select
            Wend
        Else:
            loc.Offset(10, 19).Select
        End If
        
        If Worksheets("ASR").Range("AQZ" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            Set VendorMarker = ActiveCell
            If same = False Then ActiveCell.Value = Worksheets("ASR").Range("AQZ" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ARZ" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ARF" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("ARG" & rowNum).Value
            vs2 = True
        ElseIf Worksheets("ASR").Range("AGG" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            Set VendorMarker = ActiveCell
            If same = False Then ActiveCell.Value = Worksheets("ASR").Range("AGG" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AHG" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AGM" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("AGN" & rowNum).Value
        ElseIf Worksheets("ASR").Range("VN" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            Set VendorMarker = ActiveCell
            If same = False Then ActiveCell.Value = Worksheets("ASR").Range("VN" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("WN" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("VT" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("VU" & rowNum).Value
        ElseIf Worksheets("ASR").Range("CA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            Set VendorMarker = ActiveCell
            If same = False Then ActiveCell.Value = Worksheets("ASR").Range("CA" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DC" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CI" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("CO" & rowNum).Value
        End If
        
        'Service Standardization
        If Worksheets("ASR").Range("BBS" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("BCS" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("BBY" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BBZ" & rowNum).Value
            s2 = True
        ElseIf Worksheets("ASR").Range("ASA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("ARZ" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ARF" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ARG" & rowNum).Value
        ElseIf Worksheets("ASR").Range("AGG" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("AHG" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AGM" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AGN" & rowNum).Value
        ElseIf Worksheets("ASR").Range("VN" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("WN" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("VT" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("VU" & rowNum).Value
        ElseIf Worksheets("ASR").Range("CA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("DC" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CI" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CO" & rowNum).Value
        End If
        
        'Implemented Spend'
        Range("AR" & ActiveCell.Row).Select
        If Worksheets("ASR").Range("BXJ" & rowNum).Value <> "" Then
            ActiveCell.Value = Worksheets("ASR").Range("BXJ" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("BYL" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BXQ" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("BXS" & rowNum).Value
        End If
        'if rate change in current spend
        If Worksheets("ASR").Range("BYQ" & rowNum).Value <> "" Then
            Range("AX" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("BYL" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("COD" & rowNum).Value
        End If
        'if rate change in billing corrections
        If Worksheets("ASR").Range("BYS" & rowNum).Value <> "" Then
            Range("AZ" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("BYL" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CWP" & rowNum).Value
        End If
        'if rate change in rate reductions
        If Worksheets("ASR").Range("BYT" & rowNum).Value <> "" Then
            Range("BB" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("BYL" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DFB" & rowNum).Value
        End If
        'if rate change in vendor switch
        If Worksheets("ASR").Range("BYV" & rowNum).Value <> "" Then
            Range("BD" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("BYL" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DNN" & rowNum).Value
        End If
        'if rate change in service standardizations
        If Worksheets("ASR").Range("BYO" & rowNum).Value <> "" Then
            Range("BF" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("BYL" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DWA" & rowNum).Value
        End If
        If Worksheets("ASR").Range("BXJ" & rowNum).Value <> "" Then Call ImpSavings(2, rowNum)
    End If
End Sub

Public Sub VendorDiffCont3Svc(rowNum As Integer, loc As Range)
If Worksheets("ASR").Range("EA" & rowNum).Value <> "" Then
'Test Vendor 3'
    loc.Select
    same = True
    'same = true until the code specifies it is false with this if/then statement
    If Worksheets("ASR").Range("AA" & rowNum).Value <> Worksheets("ASR").Range("EA" & rowNum).Value Then
        ActiveCell.Offset(20).Select
        same = False
    End If

    ActiveCell.Offset(, 9).Select
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend

        'Current Spend'
        ActiveCell.Value = Worksheets("ASR").Range("FC" & rowNum).Value
        ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("EI" & rowNum).Value
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("EO" & rowNum).Value
        v3 = True
        
        'Billing Corrections'
        If Worksheets("ASR").Range("WU" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("XU" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("XA" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("XB" & rowNum).Value
            c3 = True
        ElseIf Worksheets("ASR").Range("EA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("FC" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("EI" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("EO" & rowNum).Value
        End If
        
        'Rate Reductions'
        If Worksheets("ASR").Range("AHN" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("AIN" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AHT" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AHU" & rowNum).Value
            r3 = True
        ElseIf Worksheets("ASR").Range("WU" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("XU" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("XA" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("XB" & rowNum).Value
        ElseIf Worksheets("ASR").Range("EA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("FC" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("EI" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("EO" & rowNum).Value
        End If
        
        'Vendor Switch'
        If Worksheets("ASR").Range("ASG" & rowNum).Value = Worksheets("ASR").Range("APS" & rowNum).Value And Worksheets("ASR").Range("APS" & rowNum).Value <> "" Then
            same = True
        ElseIf Worksheets("ASR").Range("AA" & rowNum).Value = Worksheets("ASR").Range("EA" & rowNum).Value And Worksheets("ASR").Range("APS" & rowNum).Value = "" And Worksheets("ASR").Range("ASG" & rowNum).Value = "" Then
            same = True
        Else:
            same = False
        End If
        
        If same = True Then
            While loc.Offset(0, 21).Value <> ""
                ActiveCell.Offset(1).Select
            Wend
        Else:
            loc.Offset(20, 19).Select
        End If
        
         If Worksheets("ASR").Range("ASG" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            If same = False Then ActiveCell.Value = Worksheets("ASR").Range("ASG" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ATG" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ASM" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("ASN" & rowNum).Value
            vs3 = True
        ElseIf Worksheets("ASR").Range("AHN" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            If same = False Then ActiveCell.Value = Worksheets("ASR").Range("AHN" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AIN" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AHT" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("AHU" & rowNum).Value
        ElseIf Worksheets("ASR").Range("WU" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            If same = False Then ActiveCell.Value = Worksheets("ASR").Range("WU" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("XU" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("XA" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("XB" & rowNum).Value
        ElseIf Worksheets("ASR").Range("EA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            If same = False Then ActiveCell.Value = Worksheets("ASR").Range("EA" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("FC" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("EI" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("EO" & rowNum).Value
        End If
        
        'Insert Service Standardization Here'
        If Worksheets("ASR").Range("BCZ" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Offset.Value = Worksheets("ASR").Range("BDZ" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("BDF" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BDG" & rowNum).Value
            s3 = True
        ElseIf Worksheets("ASR").Range("ASG" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Offset.Value = Worksheets("ASR").Range("ATG" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ASM" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ASN" & rowNum).Value
        ElseIf Worksheets("ASR").Range("AHN" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("AIN" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AHT" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AHU" & rowNum).Value
        ElseIf Worksheets("ASR").Range("WU" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("XU" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("XA" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("XB" & rowNum).Value
        ElseIf Worksheets("ASR").Range("EA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("FC" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("EI" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("EO" & rowNum).Value
        End If
        
        
        'Implemented Spend
        If Worksheets("ASR").Range("BZM" & rowNum).Value <> "" Then
            Range("AR" & loc.Offset(20).Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("BZM" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CAO" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BZT" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("BZV" & rowNum).Value
        End If
        'If rate change in current spend
        If Worksheets("ASR").Range("CAT" & rowNum).Value <> "" Then
            Range("AX" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CAO" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CPC" & rowNum).Value
        End If
        'if rate change in billing corrections
        If Worksheets("ASR").Range("CAV" & rowNum).Value <> "" Then
            Range("AZ" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CAO" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CXO" & rowNum).Value
        End If
        'if rate change in rate reductions
        If Worksheets("ASR").Range("CAW" & rowNum).Value <> "" Then
            Range("BB" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CAO" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DGA" & rowNum).Value
        End If
        'if rate change in vendor switch
        If Worksheets("ASR").Range("CAY" & rowNum).Value <> "" Then
            Range("BD" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CAO" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DOM" & rowNum).Value
        End If
        'if rate change in service standardizations
        If Worksheets("ASR").Range("CAR" & rowNum).Value <> "" Then
            Range("BF" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CAO" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DWZ" & rowNum).Value
        End If
        If Worksheets("ASR").Range("BZM" & rowNum).Value <> "" Then Call ImpSavings(3, rowNum)
    End If

End Sub

Public Sub VendorDiffCont4Svc(rowNum As Integer, loc As Range)
'Test Vendor 4'
If Worksheets("ASR").Range("GA" & rowNum).Value <> "" Then
    loc.Select
    same = True
    'same = true until the code specifies it is false with this if/then statement
    If Worksheets("ASR").Range("AA" & rowNum).Value <> Worksheets("ASR").Range("GA" & rowNum).Value Then
        ActiveCell.Offset(30).Select
        same = False
    End If
    ActiveCell.Offset(, 9).Select
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    If Worksheets("ASR").Range("GA" & rowNum) = ActiveCell.Offset(0, -1).Value Then
        'Current Spend'
        ActiveCell.Value = Worksheets("ASR").Range("HC" & rowNum).Value
        ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("GI" & rowNum).Value
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("GO" & rowNum).Value
        v4 = True
        'Billing Corrections'
        If Worksheets("ASR").Range("YB" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("ZB" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("YH" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("YI" & rowNum).Value
            c4 = True
        ElseIf Worksheets("ASR").Range("GA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("HC" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("GI" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("GO" & rowNum).Value
        End If
        
        'Rate Reductions'
        If Worksheets("ASR").Range("AIU" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("AJU" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AJA" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AJB" & rowNum).Value
            r4 = True
        ElseIf Worksheets("ASR").Range("YB" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("ZB" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("YH" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("YI" & rowNum).Value
        ElseIf Worksheets("ASR").Range("GA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("HC" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("GI" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("GO" & rowNum).Value
        End If
        
        'Vendor Switch'
        
        If Worksheets("ASR").Range("ASG" & rowNum).Value = Worksheets("ASR").Range("APS" & rowNum).Value And Worksheets("ASR").Range("APS" & rowNum).Value <> "" Then
            same = True
        ElseIf Worksheets("ASR").Range("AA" & rowNum).Value = Worksheets("ASR").Range("EA" & rowNum).Value And Worksheets("ASR").Range("APS" & rowNum).Value = "" And Worksheets("ASR").Range("ASG" & rowNum).Value = "" Then
            same = True
        Else:
            same = False
        End If
        
        If same = True Then
            While loc.Offset(0, 21).Value <> ""
                ActiveCell.Offset(1).Select
            Wend
        Else:
            loc.Offset(10, 19).Select
        End If
        If Worksheets("ASR").Range("ATN" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            If same = False Then ActiveCell.Value = Worksheets("ASR").Range("ATN" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AUN" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ATT" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("ATU" & rowNum).Value
            vs4 = True
        ElseIf Worksheets("ASR").Range("AIU" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("AIU" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AJU" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AJA" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("AJB" & rowNum).Value
        ElseIf Worksheets("ASR").Range("YB" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("YB" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ZB" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("YH" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("YI" & rowNum).Value
        ElseIf Worksheets("ASR").Range("GA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("GA" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("HC" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("GI" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("GO" & rowNum).Value
        End If

        'Insert Service Standardization Here'
        If Worksheets("ASR").Range("BEG" & rowNum).Valuel <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("BFG" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("BEM" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BEN" & rowNum).Value
            s4 = True
        ElseIf Worksheets("ASR").Range("ATN" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("ATN" & rowNum).Value
            If ActiveCell.Value <> loc.Offset(30, 1).Value Then ActiveCell.Interior.ColorIndex = 6
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AUN" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ATT" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("ATU" & rowNum).Value
        ElseIf Worksheets("ASR").Range("AIU" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("AJU" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AJA" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AJB" & rowNum).Value
        ElseIf Worksheets("ASR").Range("YB" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("ZB" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("YH" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("YI" & rowNum).Value
        ElseIf Worksheets("ASR").Range("GA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("HC" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("GI" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("GO" & rowNum).Value
        End If
        
        
        'Implemented Spend'
         If Worksheets("ASR").Range("CBP" & rowNum).Value <> "" Then
            Range("AR" & loc.Offset(30).Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CBP" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CCR" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CBW" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("CBY" & rowNum).Value
        End If
        'if rate change for current spend
        If Worksheets("ASR").Range("CCW" & rowNum).Value <> "" Then
            Range("AX" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CCR" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CQC" & rowNum).Value
        End If
        'if rate change in billing corrections
        If Worksheets("ASR").Range("CCY" & rowNum).Value <> "" Then
            Range("AZ" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CCR" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CYO" & rowNum).Value
        End If
        'if rate change in rate reductions
        If Worksheets("ASR").Range("CCZ" & rowNum).Value <> "" Then
            Range("BB" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CCR" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DHA" & rowNum).Value
        End If
        'if rate change in vendor switch
        If Worksheets("ASR").Range("CDB" & rowNum).Value <> "" Then
            Range("BD" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CCR" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DPM" & rowNum).Value
        End If
        'if rate change in service standardizations
        If Worksheets("ASR").Range("CCU" & rowNum).Value <> "" Then
            Range("BF" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CCR" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DXZ" & rowNum).Value
        End If
        If Worksheets("ASR").Range("CBP" & rowNum).Value <> "" Then Call ImpSavings(4, rowNum)
    End If
End If
End Sub
Public Sub VendorDiffCont5Svc(rowNum As Integer, loc As Range)
If Worksheets("ASR").Range("IA" & rowNum).Value <> "" Then
    'Test Vendor 5'
    loc.Select
    same = True
    'same = true until the code specifies it is false with this if/then statement
    If Worksheets("ASR").Range("AA" & rowNum).Value <> Worksheets("ASR").Range("IA" & rowNum).Value Then
        ActiveCell.Offset(40).Select
        same = False
    End If
    
    ActiveCell.Offset(, 9).Select
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    If Worksheets("ASR").Range("IA" & rowNum) = ActiveCell.Offset(0, -1).Value Then
        'Current Spend'
        ActiveCell.Value = Worksheets("ASR").Range("JC" & rowNum).Value
        ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("II" & rowNum).Value
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("IO" & rowNum).Value
        v5 = True
        
        'Billing Corrections '
        If Worksheets("ASR").Range("ZI" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("AAI" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ZO" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ZP" & rowNum).Value
            c5 = True
        ElseIf Worksheets("ASR").Range("IA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("JC" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("II" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("IO" & rowNum).Value
        End If
        
        'Rate Reductions'
        If Worksheets("ASR").Range("AKB" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("ALB" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AKH" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AKI" & rowNum).Value
            r5 = True
        ElseIf Worksheets("ASR").Range("ZI" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("AAI" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ZO" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ZP" & rowNum).Value
        ElseIf Worksheets("ASR").Range("IA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("JC" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("II" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("IO" & rowNum).Value
        End If
        
        'Vendor Switch'
        If Worksheets("ASR").Range("AUU" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            If same = False Then ActiveCell.Value = Worksheets("ASR").Range("AUU" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AVU" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AVA" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("AVB" & rowNum).Value
            vs5 = True
        ElseIf Worksheets("ASR").Range("AKB" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("AKB" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ALB" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AKH" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("AKI" & rowNum).Value
        ElseIf Worksheets("ASR").Range("ZI" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("ZI" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AAI" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ZO" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("ZP" & rowNum).Value
        ElseIf Worksheets("ASR").Range("IA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("IA" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("JC" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("II" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("IO" & rowNum).Value
        End If

        'Insert Service Standardization Here'
        If Worksheets("ASR").Range("BFN" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("BGN" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("BFT" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BFU" & rowNum).Value
            s5 = True
        ElseIf Worksheets("ASR").Range("AUU" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("AVU" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AVA" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AVB" & rowNum).Value
        ElseIf Worksheets("ASR").Range("AKB" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("ALB" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AKH" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AKI" & rowNum).Value
        ElseIf Worksheets("ASR").Range("ZI" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("AAI" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ZO" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ZP" & rowNum).Value
        ElseIf Worksheets("ASR").Range("IA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("JC" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("II" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("IO" & rowNum).Value
        End If
        
        
        'Implemented Spend'
        If Worksheets("ASR").Range("CDS" & rowNum).Value <> "" Then
            Range("AR" & loc.Offset(40).Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CDS" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CEU" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CDZ" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("CEB" & rowNum).Value
        End If
        'if rate change in current spend
        If Worksheets("ASR").Range("CEZ" & rowNum).Value <> "" Then
            Range("AX" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CEU" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CRB" & rowNum).Value
        End If
        'if rate change in billing corrections
        If Worksheets("ASR").Range("CFB" & rowNum).Value <> "" Then
            Range("AZ" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CEU" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CZN" & rowNum).Value
        End If
        'if rate change in rate reductions
        If Worksheets("ASR").Range("CFC" & rowNum).Value <> "" Then
            Range("BB" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CEU" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DHZ" & rowNum).Value
        End If
        'if rate change in vendor switch
        If Worksheets("ASR").Range("CFE" & rowNum).Value <> "" Then
            Range("BD" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CEU" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DQL" & rowNum).Value
        End If
        'if rate change in service standardizations
        If Worksheets("ASR").Range("CEX" & rowNum).Value <> "" Then
            Range("BF" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CEU" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DYY" & rowNum).Value
        End If
        If Worksheets("ASR").Range("CDS" & rowNum).Value <> "" Then Call ImpSavings(5, rowNum)
    End If
End If
End Sub

Public Sub VendorDiffCont6Svc(rowNum As Integer, loc As Range)
If Worksheets("ASR").Range("KA" & rowNum).Value <> "" Then
    'Test Vendor 6'
    loc.Offset(50).Select
    same = False


    ActiveCell.Offset(, 9).Select
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend

        'Current Spend'
        With ActiveCell
            .Value = "Container Charges:"
            .Font.Underline = True
        End With
        ActiveCell.Offset(1).Value = Worksheets("ASR").Range("LI" & rowNum).Value
        ActiveCell.Offset(2).Value = "Haul Fee (per haul)"
        ActiveCell.Offset(2, 1).Value = Worksheets("ASR").Range("KL" & rowNum).Value
        ActiveCell.Offset(2, 2).Value = Worksheets("ASR").Range("KN" & rowNum).Value
        ActiveCell.Offset(2, 3).Value = Format(Worksheets("ASR").Range("KL" & rowNum).Value * Worksheets("ASR").Range("KN" & rowNum).Value, "Currency")
        ActiveCell.Offset(3).Value = "Disposal Fee (TNs)"
        ActiveCell.Offset(3, 1).Value = Worksheets("ASR").Range("KK" & rowNum).Value
        ActiveCell.Offset(3, 2).Value = Worksheets("ASR").Range("KO" & rowNum).Value
        ActiveCell.Offset(3, 3).Value = Format(Worksheets("ASR").Range("KK" & rowNum).Value * Worksheets("ASR").Range("KO" & rowNum).Value, "Currency")
        v6 = True
                        
        'Billing Corrections '
        If Worksheets("ASR").Range("AAP" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("ABP" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AAV" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AAW" & rowNum).Value
            c6 = True
        ElseIf Worksheets("ASR").Range("KA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            With ActiveCell
                .Value = "Container Charges:"
                .Font.Underline = True
            End With
            ActiveCell.Offset(1).Value = Worksheets("ASR").Range("LI" & rowNum).Value
            ActiveCell.Offset(2).Value = "Haul Fee (per haul)"
            ActiveCell.Offset(2, 1).Value = Worksheets("ASR").Range("KL" & rowNum).Value
            ActiveCell.Offset(2, 2).Value = Worksheets("ASR").Range("KN" & rowNum).Value
            ActiveCell.Offset(2, 3).Value = Format(Worksheets("ASR").Range("KL" & rowNum).Value * Worksheets("ASR").Range("KN" & rowNum).Value, "Currency")
            ActiveCell.Offset(3).Value = "Disposal Fee (TNs)"
            ActiveCell.Offset(3, 1).Value = Worksheets("ASR").Range("KK" & rowNum).Value
            ActiveCell.Offset(3, 2).Value = Worksheets("ASR").Range("KO" & rowNum).Value
            ActiveCell.Offset(3, 3).Value = Format(Worksheets("ASR").Range("KK" & rowNum).Value * Worksheets("ASR").Range("KO" & rowNum).Value, "Currency")
        End If
        
        'Rate Reductions'
        If Worksheets("ASR").Range("ALI" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("AMI" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ALO" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ALP" & rowNum).Value
            r6 = True
        ElseIf Worksheets("ASR").Range("AAP" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("ABP" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AAV" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AAW" & rowNum).Value
        ElseIf Worksheets("ASR").Range("KA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            With ActiveCell
                .Value = "Container Charges:"
                .Font.Underline = True
            End With
            ActiveCell.Offset(1).Value = Worksheets("ASR").Range("LI" & rowNum).Value
            ActiveCell.Offset(2).Value = "Haul Fee (per haul)"
            ActiveCell.Offset(2, 1).Value = Worksheets("ASR").Range("KL" & rowNum).Value
            ActiveCell.Offset(2, 2).Value = Worksheets("ASR").Range("KN" & rowNum).Value
            ActiveCell.Offset(2, 3).Value = Format(Worksheets("ASR").Range("KL" & rowNum).Value * Worksheets("ASR").Range("KN" & rowNum).Value, "Currency")
            ActiveCell.Offset(3).Value = "Disposal Fee (TNs)"
            ActiveCell.Offset(3, 1).Value = Worksheets("ASR").Range("KK" & rowNum).Value
            ActiveCell.Offset(3, 2).Value = Worksheets("ASR").Range("KO" & rowNum).Value
            ActiveCell.Offset(3, 3).Value = Format(Worksheets("ASR").Range("KK" & rowNum).Value * Worksheets("ASR").Range("KO" & rowNum).Value, "Currency")
        End If
        
        'Vendor Switch'
        If Worksheets("ASR").Range("AWB" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            If same = False Then ActiveCell.Value = Worksheets("ASR").Range("AWB" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AXB" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AWH" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("AWI" & rowNum).Value
            vs6 = True
        ElseIf Worksheets("ASR").Range("ALI" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("ALI" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AMI" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ALO" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("ALP" & rowNum).Value
        ElseIf Worksheets("ASR").Range("AAP" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("AAP" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ABP" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AAV" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("AAW" & rowNum).Value
        ElseIf Worksheets("ASR").Range("KA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("KA" & rowNum).Value
            With ActiveCell.Offset(, 1)
                .Value = "Container Charges:"
                .Font.Underline = True
            End With
            ActiveCell.Offset(1, 1).Value = Worksheets("ASR").Range("LI" & rowNum).Value
            ActiveCell.Offset(2, 1).Value = "Haul Fee (per haul)"
            ActiveCell.Offset(2, 2).Value = Worksheets("ASR").Range("KL" & rowNum).Value
            ActiveCell.Offset(2, 3).Value = Worksheets("ASR").Range("KN" & rowNum).Value
            ActiveCell.Offset(2, 4).Value = Format(Worksheets("ASR").Range("KL" & rowNum).Value * Worksheets("ASR").Range("KN" & rowNum).Value, "Currency")
            ActiveCell.Offset(3, 1).Value = "Disposal Fee (TNs)"
            ActiveCell.Offset(3, 2).Value = Worksheets("ASR").Range("KK" & rowNum).Value
            ActiveCell.Offset(3, 3).Value = Worksheets("ASR").Range("KO" & rowNum).Value
            ActiveCell.Offset(3, 4).Value = Format(Worksheets("ASR").Range("KK" & rowNum).Value * Worksheets("ASR").Range("KO" & rowNum).Value, "Currency")
        End If
        
        'Insert Service Standardization Here'
        If Worksheets("ASR").Range("BGU" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("BHU" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("BHA" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BHB" & rowNum).Value
            s6 = True
        ElseIf Worksheets("ASR").Range("AWB" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("AXB" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AWH" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AWI" & rowNum).Value
        ElseIf Worksheets("ASR").Range("ALI" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("AMI" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ALO" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ALP" & rowNum).Value
        ElseIf Worksheets("ASR").Range("AAP" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("ABP" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AAV" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AAW" & rowNum).Value
        ElseIf Worksheets("ASR").Range("KA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            With ActiveCell
                .Value = "Container Charges:"
                .Font.Underline = True
            End With
            ActiveCell.Offset(1).Value = Worksheets("ASR").Range("LI" & rowNum).Value
            ActiveCell.Offset(2).Value = "Haul Fee (per haul)"
            ActiveCell.Offset(2, 1).Value = Worksheets("ASR").Range("KL" & rowNum).Value
            ActiveCell.Offset(2, 2).Value = Worksheets("ASR").Range("KN" & rowNum).Value
            ActiveCell.Offset(2, 3).Value = Format(Worksheets("ASR").Range("KL" & rowNum).Value * Worksheets("ASR").Range("KN" & rowNum).Value, "Currency")
            ActiveCell.Offset(3).Value = "Disposal Fee (TNs)"
            ActiveCell.Offset(3, 1).Value = Worksheets("ASR").Range("KK" & rowNum).Value
            ActiveCell.Offset(3, 2).Value = Worksheets("ASR").Range("KO" & rowNum).Value
            ActiveCell.Offset(3, 3).Value = Format(Worksheets("ASR").Range("KK" & rowNum).Value * Worksheets("ASR").Range("KO" & rowNum).Value, "Currency")
        End If
        
        
        'Implemented Spend'
        'NEED TO ADD IN HAUL AND DISPOSAL FEES AND RATE CHANGES
        If Worksheets("ASR").Range("CFV" & rowNum).Value <> "" Then
            Range("AR" & loc.Offset(50).Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CFV" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CGX" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CGC" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("CGW" & rowNum).Value
        End If
        'if rate change in current spend
        If Worksheets("ASR").Range("CHC" & rowNum).Value <> "" Then
            Range("AX" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CGX" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CSA" & rowNum).Value
        End If
        'if rate change in billing corrections
        If Worksheets("ASR").Range("CHE" & rowNum).Value <> "" Then
            Range("AZ" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CGX" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DAM" & rowNum).Value
        End If
        'if rate change in rate reductions
        If Worksheets("ASR").Range("CHF" & rowNum).Value <> "" Then
            Range("BB" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CGX" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DIY" & rowNum).Value
        End If
        'if rate change in vendor switch
        If Worksheets("ASR").Range("CHH" & rowNum).Value <> "" Then
            Range("BD" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CGX" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DRK" & rowNum).Value
        End If
        'if rate change in service standardizations
        If Worksheets("ASR").Range("CHA" & rowNum).Value <> "" Then
            Range("BF" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CGX" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DZX" & rowNum).Value
        End If
        If Worksheets("ASR").Range("CFV" & rowNum).Value <> "" Then Call ImpSavings(6, rowNum)
    End If

End Sub

Public Sub VendorDiffCont7Svc(rowNum As Integer, loc As Range)
    'Test Vendor 7'
    If Worksheets("ASR").Range("MA" & rowNum).Value <> "" Then
    loc.Offset(70).Select
    same = False
    
    ActiveCell.Offset(, 9).Select
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
        'Current Spend'
        With ActiveCell
            .Value = "Container Charges:"
            .Font.Underline = True
        End With
        ActiveCell.Offset(1).Value = Worksheets("ASR").Range("NI" & rowNum).Value
        ActiveCell.Offset(2).Value = "Haul Fee (per haul)"
        ActiveCell.Offset(2, 1).Value = Worksheets("ASR").Range("ML" & rowNum).Value
        ActiveCell.Offset(2, 2).Value = Worksheets("ASR").Range("MN" & rowNum).Value
        ActiveCell.Offset(2, 3).Value = Format(Worksheets("ASR").Range("ML" & rowNum).Value * Worksheets("ASR").Range("MN" & rowNum).Value, "Currency")
        ActiveCell.Offset(3).Value = "Disposal Fee (TNs)"
        ActiveCell.Offset(3, 1).Value = Worksheets("ASR").Range("MK" & rowNum).Value
        ActiveCell.Offset(3, 2).Value = Worksheets("ASR").Range("MO" & rowNum).Value
        ActiveCell.Offset(3, 3).Value = Format(Worksheets("ASR").Range("MK" & rowNum).Value * Worksheets("ASR").Range("MO" & rowNum).Value, "Currency")
        v7 = True
                        
        'Billing Corrections '
        If Worksheets("ASR").Range("ACB" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("ADB" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ACH" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ACI" & rowNum).Value
            c7 = True
        ElseIf Worksheets("ASR").Range("MA" & rowNum).Value <> "" Then
        ActiveCell.Offset(0, 5).Select
        With ActiveCell
            .Value = "Container Charges:"
            .Font.Underline = True
        End With
        ActiveCell.Offset(1).Value = Worksheets("ASR").Range("NI" & rowNum).Value
        ActiveCell.Offset(2).Value = "Haul Fee (per haul)"
        ActiveCell.Offset(2, 1).Value = Worksheets("ASR").Range("ML" & rowNum).Value
        ActiveCell.Offset(2, 2).Value = Worksheets("ASR").Range("MN" & rowNum).Value
        ActiveCell.Offset(2, 3).Value = Format(Worksheets("ASR").Range("ML" & rowNum).Value * Worksheets("ASR").Range("MN" & rowNum).Value, "Currency")
        ActiveCell.Offset(3).Value = "Disposal Fee (TNs)"
        ActiveCell.Offset(3, 1).Value = Worksheets("ASR").Range("MK" & rowNum).Value
        ActiveCell.Offset(3, 2).Value = Worksheets("ASR").Range("MO" & rowNum).Value
        ActiveCell.Offset(3, 3).Value = Format(Worksheets("ASR").Range("MK" & rowNum).Value * Worksheets("ASR").Range("MO" & rowNum).Value, "Currency")

        End If
                        
        'Rate Reductions'
        If Worksheets("ASR").Range("AMU" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("ANU" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ANA" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ANB" & rowNum).Value
            r7 = True
        ElseIf Worksheets("ASR").Range("ACB" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("ADB" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ACH" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ACI" & rowNum).Value
        ElseIf Worksheets("ASR").Range("MA" & rowNum).Value <> "" Then
        ActiveCell.Offset(0, 5).Select
            With ActiveCell
            .Value = "Container Charges:"
            .Font.Underline = True
        End With
        ActiveCell.Offset(1).Value = Worksheets("ASR").Range("NI" & rowNum).Value
        ActiveCell.Offset(2).Value = "Haul Fee (per haul)"
        ActiveCell.Offset(2, 1).Value = Worksheets("ASR").Range("ML" & rowNum).Value
        ActiveCell.Offset(2, 2).Value = Worksheets("ASR").Range("MN" & rowNum).Value
        ActiveCell.Offset(2, 3).Value = Format(Worksheets("ASR").Range("ML" & rowNum).Value * Worksheets("ASR").Range("MN" & rowNum).Value, "Currency")
        ActiveCell.Offset(3).Value = "Disposal Fee (TNs)"
        ActiveCell.Offset(3, 1).Value = Worksheets("ASR").Range("MK" & rowNum).Value
        ActiveCell.Offset(3, 2).Value = Worksheets("ASR").Range("MO" & rowNum).Value
        ActiveCell.Offset(3, 3).Value = Format(Worksheets("ASR").Range("MK" & rowNum).Value * Worksheets("ASR").Range("MO" & rowNum).Value, "Currency")

        End If
        
        'Vendor Switch'
        If Worksheets("ASR").Range("AXN" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            If same = False Then ActiveCell.Value = Worksheets("ASR").Range("AXN" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AYN" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AXT" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("AXU" & rowNum).Value
            vs7 = True
        ElseIf Worksheets("ASR").Range("AMU" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("AMU" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ANU" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ANA" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("ANB" & rowNum).Value
        ElseIf Worksheets("ASR").Range("ACB" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("ACB" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ADB" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ACH" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("ACI" & rowNum).Value
        ElseIf Worksheets("ASR").Range("MA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("MA" & rowNum).Value
            With ActiveCell.Offset(, 1)
                .Value = "Container Charges:"
                .Font.Underline = True
            End With
            ActiveCell.Offset(1, 1).Value = Worksheets("ASR").Range("NI" & rowNum).Value
            ActiveCell.Offset(2, 1).Value = "Haul Fee (per haul)"
            ActiveCell.Offset(2, 2).Value = Worksheets("ASR").Range("ML" & rowNum).Value
            ActiveCell.Offset(2, 3).Value = Worksheets("ASR").Range("MN" & rowNum).Value
            ActiveCell.Offset(2, 4).Value = Format(Worksheets("ASR").Range("ML" & rowNum).Value * Worksheets("ASR").Range("MN" & rowNum).Value, "Currency")
            ActiveCell.Offset(3, 1).Value = "Disposal Fee (TNs)"
            ActiveCell.Offset(3, 2).Value = Worksheets("ASR").Range("MK" & rowNum).Value
            ActiveCell.Offset(3, 3).Value = Worksheets("ASR").Range("MO" & rowNum).Value
            ActiveCell.Offset(3, 4).Value = Format(Worksheets("ASR").Range("MK" & rowNum).Value * Worksheets("ASR").Range("MO" & rowNum).Value, "Currency")
        End If
        
        'Insert Service Standardization Here'
        If Worksheets("ASR").Range("BIG" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("BJG" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("BIM" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BIN" & rowNum).Value
            s7 = True
        ElseIf Worksheets("ASR").Range("AXN" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("AYN" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AXT" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AXU" & rowNum).Value
        ElseIf Worksheets("ASR").Range("AMU" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("ANU" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ANA" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ANB" & rowNum).Value
        ElseIf Worksheets("ASR").Range("ACB" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            ActiveCell.Value = Worksheets("ASR").Range("ADB" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ACH" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ACI" & rowNum).Value
        ElseIf Worksheets("ASR").Range("MA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 6).Select
            With ActiveCell
                .Value = "Container Charges:"
                .Font.Underline = True
            End With
            ActiveCell.Offset(1).Value = Worksheets("ASR").Range("NI" & rowNum).Value
            ActiveCell.Offset(2).Value = "Haul Fee (per haul)"
            ActiveCell.Offset(2, 1).Value = Worksheets("ASR").Range("ML" & rowNum).Value
            ActiveCell.Offset(2, 2).Value = Worksheets("ASR").Range("MN" & rowNum).Value
            ActiveCell.Offset(2, 3).Value = Format(Worksheets("ASR").Range("ML" & rowNum).Value * Worksheets("ASR").Range("MN" & rowNum).Value, "Currency")
            ActiveCell.Offset(3).Value = "Disposal Fee (TNs)"
            ActiveCell.Offset(3, 1).Value = Worksheets("ASR").Range("MK" & rowNum).Value
            ActiveCell.Offset(3, 2).Value = Worksheets("ASR").Range("MO" & rowNum).Value
            ActiveCell.Offset(3, 3).Value = Format(Worksheets("ASR").Range("MK" & rowNum).Value * Worksheets("ASR").Range("MO" & rowNum).Value, "Currency")
        End If
        
        
        'Implemented Spend'
        'NEED TO ADD IN HAUL AND DISPOSAL FEES, AND THEIR RATE CHANGES
        If Worksheets("ASR").Range("CHY" & rowNum).Value <> "" Then
            Range("AR" & loc.Offset(70).Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CHY" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CJA" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CIF" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("CIZ" & rowNum).Value
        End If
        'if rate change in current spend
        If Worksheets("ASR").Range("CJF" & rowNum).Value <> "" Then
            Range("AX" & loc.Offset(70).Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CJA" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CTF" & rowNum).Value
        End If
        'if rate change in billing corrections
        If Worksheets("ASR").Range("CJH" & rowNum).Value <> "" Then
            Range("AZ" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CJA" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DBR" & rowNum).Value
        End If
        'if rate change in rate reductions
        If Worksheets("ASR").Range("CJI" & rowNum).Value <> "" Then
            Range("BB" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CJA" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DKD" & rowNum).Value
        End If
        'if rate change in vendor switch
        If Worksheets("ASR").Range("CJK" & rowNum).Value <> "" Then
            Range("BD" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CJA" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DSP" & rowNum).Value
        End If
        'if rate change in service standardizations
        If Worksheets("ASR").Range("CJD" & rowNum).Value <> "" Then
            Range("BF" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CJA" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("EBC" & rowNum).Value
        End If
        If Worksheets("ASR").Range("CHY" & rowNum).Value <> "" Then Call ImpSavings(7, rowNum)
    End If

End Sub

Public Sub VendorDiffCont8Svc(rowNum As Integer, loc As Range)
    'Test Vendor 8'
    If Worksheets("ASR").Range("OA" & rowNum).Value <> "" Then
    loc.Offset(90).Select
    same = False

    ActiveCell.Offset(, 9).Select
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend

        'Current Spend'
        ActiveCell.Value = Worksheets("ASR").Range("PI" & rowNum).Value
        ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("OI" & rowNum).Value
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("OU" & rowNum).Value
        v8 = True

        'Billing Corrections '
        If Worksheets("ASR").Range("ADN" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("AEN" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ADT" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ADU" & rowNum).Value
            c8 = True
        ElseIf Worksheets("ASR").Range("OA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("PI" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("OI" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("OU" & rowNum).Value
        End If

        'Rate Reductions'
        If Worksheets("ASR").Range("AOG" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("APG" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AOM" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AON" & rowNum).Value
            r8 = True
        ElseIf Worksheets("ASR").Range("ADN" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("AEN" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ADT" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ADU" & rowNum).Value
        ElseIf Worksheets("ASR").Range("OA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("PI" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("OI" & rowNum).Value
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("OU" & rowNum).Value
        End If
        
        'Vendor Switch'
         If Worksheets("ASR").Range("AYZ" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            If same = False Then ActiveCell.Value = Worksheets("ASR").Range("AYZ" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AZZ" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AZF" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("AZG" & rowNum).Value
            r8 = True
        ElseIf Worksheets("ASR").Range("AOG" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("AOG" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("APG" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AOM" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("AON" & rowNum).Value
        ElseIf Worksheets("ASR").Range("ADN" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("ADN" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("AEN" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ADT" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("ADU" & rowNum).Value
        ElseIf Worksheets("ASR").Range("OA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 5).Select
            ActiveCell.Value = Worksheets("ASR").Range("OA" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("PI" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("OI" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("OU" & rowNum).Value
        End If
        
        'Implemented Spend'
        'NEED TO ADD IN HAUL AND DISPOSAL FEES, AND THEIR RATE CHANGES
        If Worksheets("ASR").Range("CKB" & rowNum).Value <> "" Then
            Range("AR" & loc.Offset(50).Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CKB" & rowNum).Value
            ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CLD" & rowNum).Value
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CKI" & rowNum).Value
            ActiveCell.Offset(0, 4).Value = Worksheets("ASR").Range("CLC" & rowNum).Value
        End If
        'if rate change in current spend
        If Worksheets("ASR").Range("CLI" & rowNum).Value <> "" Then
            Range("AX" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CLD" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CUK" & rowNum).Value
        End If
        'if rate change in billing corrections
        If Worksheets("ASR").Range("CLK" & rowNum).Value <> "" Then
            Range("AZ" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CLD" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DCW" & rowNum).Value
        End If
        'if rate change in rate reductions
        If Worksheets("ASR").Range("CLL" & rowNum).Value <> "" Then
            Range("BB" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CLD" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DLI" & rowNum).Value
        End If
        'if rate change in vendor switch
        If Worksheets("ASR").Range("CLN" & rowNum).Value <> "" Then
            Range("BD" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CLD" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DTU" & rowNum).Value
        End If
        'if rate change in service standardizations
        If Worksheets("ASR").Range("CLG" & rowNum).Value <> "" Then
            Range("BF" & loc.Row).Select
            ActiveCell.Value = Worksheets("ASR").Range("CLD" & rowNum).Value
            ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("ECH" & rowNum).Value
        End If
        If Worksheets("ASR").Range("CKB" & rowNum).Value <> "" Then Call ImpSavings(8, rowNum)
    End If

End Sub
